10 KEY OFF
20  CLS
30 PRINT "             "
40 PURT=&H3FB
50 PORTB=&H3FD
60 PORTA=&H3FC
70 PORTD=&H3F8
80 PORTC=&H3F9
90 BAIT=INP(PORTB)
100 D37=BAIT OR &H8B
110 D347=D37 AND &HEF
120 OUT PORTA,D347
130 OUT PURT,&H3E
140 PRINT "   "
150 INPUT " ";V
160 IF V=1200 THEN GOTO 220
170 IF V=2400 THEN GOTO 240
180 IF V=4800 THEN GOTO 260
190 IF V=9600 THEN GOTO 280
200 PRINT "   :"
210 GOTO 150
220 OUT PORTD,&H40
230 GOTO 290
240 OUT PORTD,&H20
250 GOTO 290
260 OUT PORTD,&H10
270 GOTO 290
280 OUT PORTD,&H8
290 OUT PORTD,&H0
300 BAIT=INP(PORTB)
310 D7=BAIT AND &H7F
320 OUT PORTA,D7
330 PRINT "   "
340 PRINT "                     "
350 PRINT "                                      "
360 PRINT "--------------------------------------"
370 PRINT "                  "
380 PRINT "                                      "
390 PRINT "       n,7,1                 1        "
400 PRINT "                                      "
410 PRINT "       e,7,2                 2        "
420 PRINT "                                      "
430 PRINT "       n,7,2                 3        "
440 PRINT "                                      "
450 PRINT "       n,8,1                 4        "
460 PRINT "                                      "
470 PRINT "       n,8,2                 5        "
480 PRINT "                                      "
490 PRINT "--------------------------------------"
500 PRINT "  "
510 INPUT " ";KR
520 IF KR=1 THEN GOTO 590
530 IF KR=2 THEN GOTO 630
540 IF KR=3 THEN GOTO 670
550 IF KR=4 THEN GOTO 710
560 IF KR=5 THEN GOTO 750
570 PRINT "    !"
580 GOTO 510
590 OUT PORTC,&H6A
600 PRINT "   "
610 PRINT "    :";V;"n,7,1"
620 GOTO 780
630 OUT PORTC,&HDA
640 PRINT "  "
650 PRINT "    :";V;"e,7,2"
660 GOTO 780
670 OUT PORTC,&HEA
680 PRINT "   "
690 PRINT "    :";V;"n,7,2"
700 GOTO 780
710 OUT PORTC,&H6E
720 PRINT "   "
730 PRINT "    :";V;"n,8,1"
740 GOTO 780
750 OUT PORTC,&HEE
760 PRINT "    "
770 PRINT "    :";V;"n,8,2"
780 OUT PORTC,&H37
790 PRINT "  "
800 PRINT "  "
